(*****************************************************************************
 * Delphi Plug-in Framework (DPF)
 * Copyright (C) 2006-2007 Tao Yuan
 *
 * The contents of this file are subject to the Mozilla Public License
 * Version 1.1 (the "License"); you may not use this file except in compliance
 * with the License. You may obtain a copy of the
 * License at http://www.mozilla.org/MPL/
 *
 * Software distributed under the License is distributed on an "AS IS" basis,
 * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for
 * the specific language governing rights and limitations under the License.                                                               }
 *
 * The Initial Developer of the Original Code is Tao Yuan. Portions created by
 * Tao Yuan are Copyright (C) Tao Yuan (taoy.cn att gmail dott com)
 * All rights reserved.
 *****************************************************************************)
 
unit RdBootErrorHandlerGui;

interface

uses
  SysUtils,
  RdBootErrorHandler;

type
  TBootErrorHandlerGui = class(TInterfacedObject, IBootErrorHandler)
  protected
    procedure handleError(aMessage: string; aE: Exception); overload; 
    procedure handleError(aMessage: string; integrityCheckReport: IInterface);
        overload; 
    procedure handleFatalError(aMessage: string); overload; 
    procedure handleFatalError(aMessage: string; aE: Exception); overload;

  end;

implementation

{ TBootErrorHandlerConsole }

procedure TBootErrorHandlerGui.handleError(aMessage: string; aE: Exception);
begin

end;

procedure TBootErrorHandlerGui.handleError(aMessage: string;
  integrityCheckReport: IInterface);
begin

end;

procedure TBootErrorHandlerGui.handleFatalError(aMessage: string);
begin

end;

procedure TBootErrorHandlerGui.handleFatalError(aMessage: string;
  aE: Exception);
begin

end;

end.

